home *** CD-ROM | disk | FTP | other *** search
- DECLARE SUB Giris (Veri$, Uzunluk)
-
- CLS
- LOCATE 10, 20: PRINT "adìnìz:";
- CALL Giris(Veri$, 20)
-
- SUB Giris (Veri$, Uzunluk)
- COLOR 0, 7: PRINT SPACE$(Uzunluk);
- PRINT STRING$(Uzunluk, CHR$(29));
- Veri$ = ""
- DO
- DO: A$ = INKEY$: LOOP UNTIL A$ <> ""
- IF ASC(A$) = 27 THEN EXIT DO
- PRINT A$;
- Veri$ = Veri$ + A$
- IF LEN(Veri$) = Uzunluk THEN EXIT DO
- LOOP
- COLOR 7, 0
- END SUB
-
-